﻿Public Class QuanTriBUS
    Public Function Insert(ByVal chu As QuanTriDTO) As Boolean
        Dim chuDAO As New QuanTriDAO
        Return chuDAO.Insert(chu)
    End Function
    Public Sub Delete(ByVal chu As QuanTriDTO)
        Dim chuDAO As New QuanTriDAO
        chuDAO.Delete(chu)
    End Sub
    Public Sub Update(ByVal chu As QuanTriDTO)
        Dim chuDAO As New QuanTriDAO
        chuDAO.Update(chu)
    End Sub
    Public Function GetAll() As DataTable
        Dim chunhaDAO As New QuanTriDAO
        Dim dt As New DataTable
        dt = chunhaDAO.GetAll()
        Return dt
    End Function

    Public Function GetItemID(ByVal tenDN As String) As QuanTriDTO
        Dim chunhaDAO As New QuanTriDAO
        Return chunhaDAO.GetItemID(tenDN)
    End Function
    Public Function CheckEmail(ByVal chunha As QuanTriDTO) As Boolean
        Dim cnDAO As New QuanTriDAO
        Return cnDAO.CheckEmail(chunha)
    End Function
    Public Sub GetSVTK(ByVal tenDN As String, ByRef cn As QuanTriDTO, ByRef tk As TaiKhoanDTO)
        Dim cnDAO As New QuanTriDAO
        cnDAO.GetSVTK(tenDN, cn, tk)
    End Sub
    Public Function GetItemMaQuanTri(ByVal maquantri As Integer) As QuanTriDTO
        Dim chunhaDAO As New QuanTriDAO
        Return chunhaDAO.GetItemMaQuanTri(maquantri)
    End Function
End Class
